home *** CD-ROM | disk | FTP | other *** search
/ Publication 13 / Publication_13_19xx_Civitas_de_Side_B.d64 / some basic-fx's (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  100 lines
  1. 10 rem
  2. 11 rem bildschirm loeschen + faerben
  3. 12 rem
  4. 13 print"[147]":poke53280,0:poke53281,0
  5. 14 rem
  6. 15 rem a$ = text
  7. 16 rem x  = x-position
  8. 17 rem y  = y-position
  9. 18 rem
  10. 19 a$="scroller by zeitgeist!":x=0:y=23
  11. 20 b$="civitas":c$="studios":a=30:b=22
  12. 21 rem
  13. 22 rem reinscrollen
  14. 23 rem
  15. 24 forg=1tolen(a$)
  16. 25 poke211,x:poke214,y:sys58732
  17. 26 printright$(a$,g)
  18. 27 nextg
  19. 28 rem
  20. 29 rem farb-definition
  21. 30 rem
  22. 31 f(1)=6:f(2)=2:f(3)=5:f(4)=7:f(5)=1
  23. 32 rem
  24. 33 rem text-fade vorwaerts
  25. 34 rem
  26. 35 forg=1to5
  27. 36 poke211,a:poke214,b:sys58732
  28. 37 poke646,f(g):printb$
  29. 38 forq=1to50:nextq,g
  30. 39 rem
  31. 40 rem weiter ?
  32. 41 rem
  33. 42 ifd=3then54
  34. 43 rem
  35. 44 rem text-fade rueckwaerts
  36. 45 rem
  37. 46 forg=5to0step-1
  38. 47 poke211,a:poke214,b:sys58732
  39. 48 poke646,f(g):printb$
  40. 49 forq=1to50:nextq,g
  41. 50 rem
  42. 51 rem wiederholung
  43. 52 rem
  44. 53 d=d+1:goto35
  45. 54 rem
  46. 55 rem c$ zeichen fuer zeichen
  47. 56 rem
  48. 57 forg=1tolen(c$)
  49. 58 poke211,a:poke214,b+1:sys58732
  50. 59 printleft$(c$,g)
  51. 60 forq=1to20:nextq,g
  52. 61 rem
  53. 62 rem rausscrollen
  54. 63 rem
  55. 64 forg=1tolen(a$)
  56. 65 poke211,x:poke214,y:sys58732
  57. 66 printmid$(a$,g,len(a$)-g+1)" "
  58. 67 nextg
  59. 68 rem
  60. 69 rem letztes zeichen loeschen
  61. 70 rem
  62. 71 poke211,x:poke214,y:sys58732
  63. 72 print" "
  64. 73 rem
  65. 74 rem c$ ausfaden
  66. 75 rem
  67. 76 forg=5to0step-1
  68. 77 poke211,a:poke214,b+1:sys58732
  69. 78 poke646,f(g):printc$
  70. 79 forq=1to30:nextq,g
  71. 80 rem
  72. 81 rem b$ nach oben
  73. 82 rem
  74. 83 forg=bto1step-1
  75. 84 poke211,a:poke214,g:sys58732
  76. 85 print""b$
  77. 86 poke211,a:poke214,g+1:sys58732
  78. 87 forq=1tolen(b$):print" ";:nextq
  79. 88 forq=1to20:nextq,g
  80. 89 rem
  81. 90 rem b$ nach links
  82. 91 rem
  83. 92 forg=ato1step-1
  84. 93 poke211,g:poke214,1:sys58732
  85. 94 printb$" "
  86. 95 forq=1to20
  87. 96 nextq,g
  88. 97 rem
  89. 98 rem b$ ausfaden
  90. 99 rem
  91. 100 forg=5to0step-1
  92. 101 poke211,1:poke214,1:sys58732
  93. 102 poke646,f(g):printb$
  94. 103 forq=1to30:nextq,g
  95. 104 rem
  96. 105 rem ende
  97. 106 rem
  98. 107 forg=1to1000:next
  99. 108 print"[147]":list
  100.